<script>-- Includes the LockCursor 1.02 XCMD by Jeff Winkler-- Includes the WipeOut 1.1 XCMD by All-American Software Development Corp.on mouseUpglobal dialogHelp,exportFileif dialogHelp = on then exit mouseUpif the optionKey = down thenexportOnexit mouseUpend ifput round((the freeSize of this stack)/1000) into extraKput cd fld id 29 of cd id 3819 into autoFlagif autoFlag = off then put on into tempStringif autoFlag = on then put off into tempStringanswer "The size of the stack is" && round(the size of this stack/1000)¬&& "Kbytes." & return & "There are " & extraK & " free Kbyte(s) " & ¬"in this stack." with Compact or "Set Auto" or Cancelif it = "Set Auto" thenanswer "Turn" && tempString && "compacting on exit?" with OK ¬or Cancelif it = Cancel then exit mouseUpif it = OK thenput tempString into cd fld id 29 of cd id 3819exit mouseUpend ifend ifif it = Compact thenif exportFile ≠ empty thenanswer "This option can't be selected while exporting is on."¬with OKexit mouseUpend ifif (round(the diskSpace/1000)) < (round(the size of this stack/1000)+extraK) thenanswer "You don't have enough disk space to compact the stack!" with OKexit mouseUpend ifLockCursor stackwatchappear "Compact Alert",on,"70,131"doMenu "Compact Stack"beepappear "Compact Alert",offLockCursor pointerend ifif it = Cancel then exit mouseUpend mouseUpon exportOnglobal exportFile,deLim,newFileif exportFile ≠ empty thenanswer "You already have exporting on! Click on the" &&¬"Export Off (exclamation mark) button to turn it off." with OKexit exportOnend ifanswer "Turn on exporting?" with OK or Cancelif it = Cancel thenput "" into exportFileexit exportOnelseanswer "Do you want to append to an existing file or create a new one?"¬with Append or Create or Cancelif it = Cancel thenput "" into exportFileexit exportOnend ifif it = Append thenput no into newFileanswer file "Select the file to append to:" of type text or WDBN ¬or "FMK$" or WORDif the result = Cancel thenput "" into exportFileexit exportOnelseappear "Prepare Alert",on,"70,131"put it into exportFileopen file exportFilerepeat foreverread from file exportFile until returnif it = empty then exit repeatend repeatappear "Prepare Alert",offend ifend ifif it = Create thenput no into newFileask file "Create new file as:" with "Area/ZIP Export File"if the result = Cancel thenput "" into exportFileexit exportOnelseput yes into newFileput it into exportFileopen file exportFileend ifend ifput "tab,comma,slash,return" into popUpListwait for 5ShowDialog 4,130,"","","",popUpList,1put line 1 of the result into tempHolderif tempHolder = empty thenclose file exportFileif newFile = yes then WipeOut exportFileput "" into exportFileexit exportOnend ifif tempHolder = 1 then put tab into deLimif tempHolder = 2 then put "," into deLimif tempHolder = 3 then put "/" into deLimif tempHolder = 4 then put return into deLimlock screenshow bg btn id 58screenChangeend ifend exportOnon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Compact/Export",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Compact/Export",on,"211,70"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>324</left>
<top>35</top>
<right>427</right>
<bottom>49</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Time Zone</name>
<script></script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>225</left>
<top>278</top>
<right>283</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpglobal dialogHelpif dialogHelp = on then exit mouseUplock screenif the number of this cd = ((the number of cds) - 3) thengo nextgo nextelsego nextend ifscreenChangeend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Arrow",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Arrow",on,"92,137"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>74</left>
<top>58</top>
<right>427</right>
<bottom>71</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Region</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>162</left>
<top>278</top>
<right>220</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Previous</name>
<script>on mouseUpglobal dialogHelpif dialogHelp = on then exit mouseUplock screengo prevscreenChangeend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Arrow",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Arrow",on,"92,137"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>451</left>
<top>11</top>
<right>500</right>
<bottom>61</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quit/Home</name>
<script>on mouseUpglobal dialogHelpif dialogHelp = on then exit mouseUpif the optionKey = down thendoMenu "Open Stack..."exit mouseUpend ifif the commandKey = down thenanswer file "Select an application to open:" of type APPLif the result = Cancel then exit mouseUpput it into appPathNameopen appPathNameexit mouseUpend ifanswer "Quit HyperCard or go home?" with Quit or Home or Cancelif it = Quit then doMenu "Quit HyperCard"if it = Home thenlock screengo homescreenChangeend ifif it = Cancel then exit mouseUpend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Quit/Home",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Quit/Home",on,"201,13"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>451</left>
<top>126</top>
<right>500</right>
<bottom>176</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Linked Button</name>
<script>-- Includes the TextDialog 1.3 XCMD by Jay Hodgdon-- Includes the GetType 2.0 XFCN by All-American Software Development Corp.on mouseUpglobal dialogHelpif dialogHelp = on then exit mouseUpif the optionKey = down thenanswer file "Select where you want this button to link to:"¬of type APPL or STAKif the result = Cancel thenput "" into cd fld id 30 of cd id 3819exit mouseUpend ifput it into tempPlaceput quote&tempPlace"e into cd fld id 30 of cd id 3819put GetType(tempPlace) into linkTypeif linkType is STAK thenanswer "Open the stack ""e&lastHCItem(":",tempPlace)"e&" in a new window or close this stack first?" ¬with "New Window" or "Close Stack" or Cancelif it = "New Window" then put " new" after cd fld id 30 of cd id 3819if it = Cancel then put "" into cd fld id 30 of cd id 3819exit mouseUpend ifend ifif cd fld id 30 of cd id 3819 = empty thenanswer "You must link this button to somewhere first!" with Help or OKif it = Help thenTextDialog 128,Geneva,9,"128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148",8exit mouseUpend ifexit mouseUpend ifput word 1 of cd fld id 30 of cd id 3819 into tempPlaceput char 2 to (the number of chars in tempPlace-1) of tempPlace into tempPlaceput GetType(tempPlace) into linkTypeput quote&tempPlace"e into tempPlaceif linkType = STAK thenput "go " before tempPlaceif word 2 of cd fld id 30 of cd id 3819 = "new" then put " in new window" after tempPlacelock screendo tempPlacescreenChangeexit mouseUpelseput "open " before tempPlacedo tempPlaceexit mouseUpend ifend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Linked",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Linked",on,"227,106"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>451</left>
<top>183</top>
<right>499</right>
<bottom>274</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find</name>
<script>-- Dual Find script by Kevin Hughes-- Includes the LockCursor 1.02 XCMD by Jeff Winkleron mouseUpglobal dialogHelp,findString,exportFile,deLimif dialogHelp = on then exit mouseUpput "" into cd fld 1 of cd id 72031if the optionKey = down thenfindOccurexit mouseUpend ifput word 1 of cd fld id 26 of cd id 3819 into findTypeask "Find what?" with findStringif it = empty then exit mouseUpLockCursor stackwatchput it into findStringpush cdput offset(",",findString) into findOffsetif findOffset > 0 thenput "" into cardNamerepeat with count = (findOffset+1) to (the number of chars in findString)if char count of findString = " " then next repeatput char count of findString after cardNameend repeatput char 1 to (findOffset-1) of findString into findStringrepeat with count = (the number of chars in findString) down to 1if char count of findString ≠ space then exit repeatput "" into char count of findStringend repeatlock screenif (cardName = ns) or (cardName = pe) then put "NS/PE" into cardNameif cardName = "id" then put IDaho into cardNamego cd cardNamescreenChangeif findString = empty then exit mouseUpend ifrepeatappear "Find Alert",on,"70,131"LockCursor stackwatchif findType = Country then find string findString in bg fld id 14if findType = Region then find string findString in bg fld id 3if findType = Area thenfind string findString in bg fld id 1if the foundText is not in bg fld id 1 then find string findString in bg fld id 55end ifif findType = ZIP then find string findString in bg fld id 30if findType = Location then find string findString in bg fld id 4if findType = All then find string findStringif the foundText = empty thenappear "Find Alert",offbeepLockCursor pointeranswer "Sorry, I couldn't find that!" with Again or "Return" or Cancelif it = Again then send mouseUp to bg btn id 28if it = "Return" thenlock screenpop cardscreenChangeexit repeatexit mouseUpend ifif it = Cancel thenexit repeatexit mouseUpend ifend ifif the foundField = "bkgnd field 7" then set the scroll of fld 8 to the scroll of fld 7if the foundField = "bkgnd field 8" then set the scroll of fld 7 to the scroll of fld 8if the foundField = "bkgnd field 9" thenlock screensend mouseUp to bg btn id 54set the lockText of fld id 55 to truescreenChangeend ifif exportFile ≠ empty thenif (the foundField = "bkgnd field 7") or¬(the foundField = "bkgnd field 8") thenappear "Export Alert",on,"70,131"put word 2 of the foundLine into lineNumput line lineNum of bg fld 7 & deLim & line lineNum of bg fld 8¬& deLim & bg fld id 3 & return into fileStringwrite fileString to file exportFileend ifend ifLockCursor pointerappear "Find Alert",offappear "Export Alert",offbeepanswer "Find again?" with OK or "Return" or Cancelif it = Cancel thenexit repeatexit mouseUpend ifif it = "Return" thenlock screenpop cdscreenChangeexit repeatexit mouseUpend ifif it = OK then next repeatend repeatend mouseUpon findOccurglobal occurString,exportFile,deLimput 0 into occurNumask "Find the number of occurrences of what?" with occurStringif it = empty then exit findOccurLockCursor pointerpush cdlock screengo cd id 3819screenChangeput it into occurStringput occurString into cd fld 1 of cd id 72031answer "Display matching text?" with OK or Noif it = OK then put on into displayFlagif it = No then put "" into displayFlagput "" into cd fld id 21 of cd ID 3819LockCursor stackwatchrepeatappear "Occur Alert",on,"70,131"find string occurStringif the short id of this cd = 72031 then exit repeatput the foundLine into theLineput word 2 of theLine into lineNumput the last char of theLine into fldCharif exportFile ≠ empty thenif (fldChar = 7) or (fldChar = 8) thenappear "Export Alert",on,"70,131"put line lineNum of bg fld 7 & deLim & line lineNum of bg fld 8¬& deLim & bg fld id 3 & return into fileStringwrite fileString to file exportFileend ifend ifif displayFlag = on thenput 0 into foundFlagif fldChar = 8 thenput line lineNum of bg fld 8 & "/" after cd fld id 21 of cd id 3819put line lineNum of bg fld 7 & "/" after cd fld id 21 of cd id 3819put fld id 3 & return after cd fld id 21 of cd id 3819put 1 into foundFlagend ifif fldChar = 7 thenput line lineNum of bg fld 7 & "/" after cd fld id 21 of cd id 3819put line lineNum of bg fld 8 & "/" after cd fld id 21 of cd id 3819put fld id 3 & return after cd fld id 21 of cd id 3819put 1 into foundFlagend ifif fldChar = 6 thenput fld id 3 & "/" & fld id 14 & return after cd fld id 21 of cd id 3819put 1 into foundFlagend ifif (fldChar = 4) or (fldChar = 9) thenput "area code " & the value of(theLine) & "/" & fld id 3 & return after cd fld id 21 of cd id 3819put 1 into foundFlagend ifif foundFlag = 0 then put "** nonspecific text found in field **" & return after cd fld id 21 of cd id 3819end ifadd 1 to occurNumend repeatappear "Export Alert",offappear "Occur Alert",offput "" into cd fld 1 of cd id 72031LockCursor pointerif displayFlag = on and (occurNum > 0) thenlock screengo cd id 3819put "Here are the matching found ZIP codes and locations:" & return & return¬before cd fld id 21put return & "Click on this field to remove it, or option-click to print it." after cd fld id 21set textStyle of line 1 of cd fld id 21 to boldset textStyle of last line of cd fld id 21 to boldset the lockText of cd fld id 21 to trueshow cd fld id 21screenChangebeepanswer occurNum && "occurrences in the stack." with Again or Cancelif it = Again thenlock screenput "" into cd fld id 21hide cd fld id 21screenChangefindOccurexit findOccurend ifif it = Cancel then exit findOccurend iflock screenpop cdscreenChangeif occurNum = 0 then put No into occurNumanswer occurNum && "occurrences in the stack." with Again or Cancelif it = Again thenfindOccurexit findOccurend ifif it = Cancel then exit findOccurend findOccuron mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Find",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Find",on,"189,163"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>236</left>
<top>34</top>
<right>321</right>
<bottom>49</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Time Zone</name>
<script>-- Time Locator script by Kevin Hughes-- Includes the LockCursor 1.02 XCMD by Jeff Winkleron mouseUpglobal newHour,newMinute,amPm,dialogHelp,dstFlagif dialogHelp = on then exit mouseUpput word 1 of cd fld id 9 of cd id 3819 into localZoneask "What is the region or area/city code you want the time of?"if it = empty then exit mouseUpput it into timeStringpush cdstackWaitappear "Find Alert",on,"70,131"put "" into otherZoneput "" into unCertainput offset(",",timeString) into findOffsetif findOffset > 0 thenput "" into cardNamerepeat with count = (findOffset+1) to (the number of chars in timeString)if char count of timeString = " " then next repeatput char count of timeString after cardNameend repeatput char 1 to (findOffset-1) of timeString into timeStringrepeat with count = (the number of chars in timeString) down to 1if char count of timeString ≠ space then exit repeatput "" into char count of timeStringend repeatlock screenif (cardName = ns) or (cardName = pe) then put "NS/PE" into cardNameif cardName = "id" then put IDaho into cardNamego cd cardNamescreenChangeif timeString = empty then put cardName into timeStringend ifif timeString is a number thenput " area/city code!" into findTypefind string timeString in bg fld id 1if the foundText is not in bg fld id 1 then find string timeString in bg fld id 55if the foundField is "bkgnd field 9" thenlock screensend mouseUp to bg btn id 54set the lockText of fld id 55 to truescreenChangeend ifput the last char of (value of the foundLine) into otherZoneif (otherZone ≠ "+") and (otherZone ≠ "-") then put "" into otherZoneend ifif timeString is not a number thenput " region!" into findTypefind string timeString in bg fld id 3if the foundText is not in bg fld id 3 then find string timeString in bg fld id 14end ifbeepappear "Find Alert",offif the foundText = empty thenLockCursor pointeranswer "Sorry, I couldn't find that"&findType with Again or "Return" or Cancelif it = Again then send mouseUp to bg btn id 29if it = "Return" thenlock screenpop cardscreenChangeend ifexit mouseUpend ifput the time into oldTimeput char 1 to (offset(":",oldTime)-1) of oldTime into newHourput char (offset(":",oldTime)+1) to (the number of chars in word 1 of oldTime) of ¬oldTime into newMinuteput the last word of the time into amPmif (amPm = PM) and (newHour < 12) then add 12 to newHourif (amPm = AM) and (newHour = 12) then put 0 into newHourif char 1 of word 2 of bg fld id 2 is "+" then put "" into char 1 of word 2 of bg fld id 2put (word 2 of bg fld id 2)-localZone into diffRenceput diffRence into diffHourif "." is in diffRence thenput char 1 to offset(".",diffRence)-1 of diffRence into diffHourif char 1 of diffRence = "-" thendoHalf minuselsedoHalf plusend ifend ifif word 1 of cd fld id 27 of cd id 3819 = on thenif (bg fld id 14 ≠ Canada) and (bg fld id 14 ≠ USA) then subtract 1 from diffHourif Hawaii is in bg fld 6 then subtract 1 from diffHourif Arizona is in bg fld id 6 then subtract 1 from diffHourend ifif (word 1 of cd fld id 27 of cd id 3819 = off) and (dstFlag = yes) thenif (bg fld id 14 = Canada) or (bg fld id 14 = USA) then add 1 to diffHourif Hawaii is in bg fld 6 then subtract 1 from diffHourif Arizona is in bg fld id 6 then subtract 1 from diffHourend ifadd diffHour to newHourput (newHour mod 24) into newHourif (newHour≥12) and (newHour<24) thenput " PM" into amPmelseput " AM" into amPmend ifif newHour > 12 then subtract 12 from newHourif newHour = 0 then put 12 into newHourLockCursor pointerput bg fld id 3 into regionNameif findType = " area/city code!" thenput "area/city code" && timeString into regionNameelseif ("+" is in fld id 1) or ("+" is in fld id 55) then put "+" into otherZoneif ("-" is in fld id 1) or ("-" is in fld id 55) then put "-" into otherZoneend ifif "±" is in fld id 2 then put "±" into otherZoneif otherZone ≠ empty then put " ("&otherZone&"1 hour)" into unCertainif "M" is not in oldTime thenif (amPm = " PM") and (newHour < 12) then add 12 to newHourif (amPm = " AM") and (newHour = 12) then put 0 into newHourput "" into amPmend ifput "Here it is " & oldTime & ". " into answerStringput "In " & regionName & " it is " after answerStringput newHour & ":" & newMinute & amPm & unCertain & "." after answerStringput " Find another time?" after answerStringanswer answerString with OK or "Return" or Cancelif it = OK then send mouseUp to bg btn id 29if it = "Return" thenlock screenpop cdscreenChangeend ifend mouseUpon doHalf whichWayglobal newHour, newMinuteput ((newMinute+30) mod 60) into newMinuteif whichWay = plus thenif newMinute < 30 thenadd 1 to newHourput newHour mod 24 into newHourend ifelseif newMinute ≥ 30 thensubtract 1 from newHourput newHour mod 24 into newHourend ifend ifif newMinute = 0 then put 00 into newMinuteif newMinute < 10 then put "0" before newMinuteend doHalfon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Time Zone",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Time Zone",on,"156,52"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>288</left>
<top>278</top>
<right>328</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Selective Find Button</name>
<script>on mouseUpglobal dialogHelp,exportFile,palLoc3if exportFile ≠ empty thenanswer "This option can't be selected while exporting is on." with OKexit mouseUpend ifif dialogHelp = on then exit mouseUppalette "Selective Find",palLoc3put word 1 of cd fld id 26 of cd id 3819 into findTypeif findType = Country then set hilitedButton of window "Selective Find" to 1if findType = ZIP then set hilitedButton of window "Selective Find" to 2if findType = Region then set hilitedButton of window "Selective Find" to 3if findType = Location then set hilitedButton of window "Selective Find" to 4if findType = Area then set hilitedButton of window "Selective Find" to 5if findType = All then set hilitedButton of window "Selective Find" to 6end mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Find Select",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Find Select",on,"26,249"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>30</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>18</left>
<top>142</top>
<right>103</right>
<bottom>275</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>ZIP Codes</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>87</left>
<top>142</top>
<right>427</right>
<bottom>275</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Locations</name>
<script></script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>116</left>
<top>278</top>
<right>156</right>
<bottom>308</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Select Time Zone Button</name>
<script>on mouseUpglobal dialogHelp,exportFile,palLoc1,palLoc2if exportFile ≠ empty thenanswer "This option can't be selected while exporting is on." with OKexit mouseUpend ifif dialogHelp = on then exit mouseUppalette "Local Time Zone",palLoc2put word 1 of cd fld id 9 of cd id 3819 into zoneNumif zoneNum = 0 thenset hilitedButton of window "Local Time Zone" to 25else if zoneNum > 0 thenadd 12 to zoneNumset hilitedButton of window "Local Time Zone" to zoneNumelsemultiply zoneNum by -1set hilitedButton of window "Local Time Zone" to zoneNumend ifpalette DST,palLoc1if word 1 of cd fld id 27 of cd id 3819 = on thenset hilitedButton of window DST to 1elseset hilitedButton of window DST to 2end ifend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Zone Select",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Zone Select",on,"159,203"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>337</left>
<top>101</top>
<right>405</right>
<bottom>119</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Canada</name>
<script>-- Includes the LockCursor 1.02 XCMD by Jeff Winkleron mouseUpglobal dialogHelp,exportFileif dialogHelp = on then exit mouseUpif the optionKey = down thenif exportFile ≠ empty thenanswer "This option can't be selected while exporting is on." with OKexit mouseUpend ifput on into dialogHelpappear "World Map",on,"43,39"put off into dialogHelpLockCursor trueLockCursor crosshairsexit mouseUpend ifglobal stackStatuslock screenpush cdput pushed into stackStatusgo cd id 71055screenChangeend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Map Canada",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Map Canada",on,"94,54"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>338</left>
<top>120</top>
<right>405</right>
<bottom>137</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>USA</name>
<script>-- Includes the LockCursor 1.02 XCMD by Jeff Winkleron mouseUpglobal dialogHelp,exportFileif dialogHelp = on then exit mouseUpif the optionKey = down thenif exportFile ≠ empty thenanswer "This option can't be selected while exporting is on." with OKexit mouseUpend ifput on into dialogHelpappear "World Map",on,"43,39"put off into dialogHelpLockCursor trueLockCursor crosshairsexit mouseUpend ifglobal stackStatuslock screenpush cdput pushed into stackStatusgo cd id 72031screenChangeend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Map USA",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Map USA",on,"90,44"if dialogHelp = on then put 1 into inFlagend mouseEnteron worldMapglobal dialogHelp,exportFileif exportFile ≠ empty thenanswer "This option can't be selected while exporting is on." with OKexit worldMapend ifput on into dialogHelpappear "World Map",on,"43,39"put off into dialogHelpLockCursor trueLockCursor crosshairsend worldMap</script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>256</left>
<top>105</top>
<right>315</right>
<bottom>134</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpglobal dialogHelpif dialogHelp = on then exit mouseUpif the optionKey = down thenanswer "Print this stack?" with OK or Cancelif it = Cancel then exit mouseUpdoMenu "Print Stack..."exit mouseUpend ifif the commandKey = down thenanswer "Print this card?" with OK or Cancelif it = Cancel then exit mouseUpdoMenu "Print Card"exit mouseUpend ifdoMenu "Print Report..."end mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Print",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Print",on,"154,137"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>53</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>451</left>
<top>281</top>
<right>501</right>
<bottom>333</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>-- Includes the ShowDialog 1.6 XCMD by Jay Hodgdon-- Includes the TextDialog 1.3 XCMD by Jay Hodgdonon mouseUpglobal dialogHelp,exportFile,inFlagif dialogHelp = off thenif the optionKey = down thenmainHelpexit mouseUpelseif exportFile ≠ empty then answer¬"Exporting will be turned off." with "OK"put on into dialogHelpput 1 into inFlagappear "Help",on,"195,198"put "" into exportFilelock screenshow bg btn id 58show bg btn id 54screenChangeexit mouseUpend ifend ifif dialogHelp = on then helpOffif the optionKey = down then mainHelpend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Help",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Help",on,"195,198"if dialogHelp = on then put 1 into inFlagend mouseEnteron helpOffglobal dialogHelpput off into dialogHelpappear "Help",offlock screenhide bg btn id 58if bg fld id 55 = empty then hide bg btn id 54screenChangeend helpOffon mainHelpglobal scrollListShowDialog 7,129,"",Geneva,"9",scrollList,1,oneif line 1 of the result = 1 thenput line 2 of the result into lineNumTextDialog 128,Geneva,9,"128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148",lineNumwait for 5mainHelpelseif line 1 of the result = 6 thenpush cdlock screengo cd id 11706put "You can type information in these fields and put checks" &&¬"in the boxes by clicking on them. Select this text and press" &&¬quote & "Backspace" & quote && "or" && quote & "delete" & quote &&¬"to get rid of it. For updates, please send a 800K or 1.44MB" &&¬"disk to the address below." into bg fld 1screenChangeelseif line 1 of the result = 5 thensend mouseUp to cd btn id 33 of cd id 3819elseif line 1 of the result = 2 then exit mainHelpend ifend ifend ifend mainHelp</script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>224</left>
<top>100</top>
<right>236</right>
<bottom>117</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3584</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Area/City Code Grow</name>
<script>on mouseUpglobal dialogHelpif dialogHelp = on then exit mouseUplock screenput the number of lines in fld id 55 into lineNumset the rect of fld id 55 to 196,130,item 3 of the rect of fld id 1,((lineNum * 12)+132)set the lockText of fld id 55 to trueshow fld id 55screenChangeend mouseUpon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Area Codes",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Area Codes",on,"96,119"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
</part>
<part>
<id>55</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>196</left>
<top>130</top>
<right>238</right>
<bottom>168</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Extra Area Codes</name>
<script>on mouseUplock screenhide fld id 55set the lockText of fld id 55 to falsescreenChangeend mouseUp</script>
</part>
<part>
<id>58</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>370</left>
<top>146</top>
<right>406</right>
<bottom>182</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11121</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Export Warning</name>
<script>on mouseUpglobal exportFile,dialogHelp,newFileif dialogHelp = on then exit mouseUpif the optionKey = down thenexportCardexit mouseUpend ifanswer "Turn off exporting to file " & quote &¬lastHCItem(":",exportFile) & quote & "?" with OK or Cancelif it = Cancel then exit mouseUpclose file exportFileif newFile = yes thenput "TeachText,MS Word,MacWrite" into popUpListwait for 5ShowDialog 4,131,"","","",popUpList,1put line 1 of the result into tempHolderif tempHolder = 1 then put ttxt into creAteif tempHolder = 2 then put MSWD into creAteif tempHolder = 3 then put MACA into creAteSetCreator exportFile,creAteend ifput "" into exportFilelock screenhide bg btn id 58screenChangeend mouseUpon exportCardglobal exportFile, deLimanswer "Export all this card's information? The export file you chose or created will use " & ¬"the delimiting character you selected." with OK or Cancelif it = Cancel then exit exportCardappear "Export Alert",on,"70,131"stackWaitwrite "-- Card Information" & return to file exportFileput "Country: "&fld id 14&return into fileStringput "Region: "&fld id 3&return after fileStringput "Time Zone: "&fld id 2&return after fileStringput "Dial Preamble: "&fld id 16&return after fileStringput "Country Code: "&fld id 13&return after fileStringput "Area/City Code: "&fld id 1&return after fileStringwrite fileString to file exportFileif bg fld id 55 ≠ empty thenwrite "Extra Area/City Codes: " to file exportFilerepeat with x = 1 to the number of lines in bg fld id 55if x = the number of lines in bg fld id 55 thenwrite line x of bg fld id 55 & return to file exportFileelsewrite line x of bg fld id 55 & "," to file exportFileend ifend repeatend ifwrite "-- ZIP Codes/Locations" & return to file exportFilerepeat with x = 1 to the number of lines in bg fld id 4if bg fld id 30 = empty thenwrite line x of bg fld id 4 & return to file exportFileelsewrite line x of bg fld id 30 & deLim & line x of bg fld id 4 & return to file exportFileend ifend repeatappear "Export Alert",offbeepend exportCardon mouseLeaveglobal dialogHelp,inFlagif (inFlag = 1) and (dialogHelp = on) then appear "Export Off",offput 0 into inFlagend mouseLeaveon mouseEnterglobal dialogHelp,inFlagif dialogHelp = on then appear "Export Off",on,"96,119"if dialogHelp = on then put 1 into inFlagend mouseEnter</script>
<script>-- Includes the LockCursor 1.02 XCMD by Jeff Winkleron openCardset the scroll of fld 8 to 0set the scroll of fld 7 to 0if the number of lines in fld id 55 = 0 thenhide bg btn id 54elseshow bg btn id 54end ifend openCardon idleglobal dialogHelpif dialogHelp = on thenLockCursor trueLockCursor helpcursorelseif "World Map" is in the windows thenif the visible of window "World Map" = false thenLockCursor trueLockCursor pointerend ifend ifend ifif (the scroll of bg fld 8 mod 12) ≠ 0 then set the scroll of bg fld ¬8 to (the scroll of bg fld 8-(the scroll of bg fld 8 mod 12))set the scroll of fld 7 to the scroll of fld 8if the screenRect = "0,0,512,342" and the rect of cd window = "0,0,512,342" thenif the mouseLoc is within "10,0,437,18" thenshow menuBarelsehide menuBarend ifend ifpass idleend idleon closeCardif the visible of fld id 55 = true then send mouseUp to fld id 55end closeCardon arrowKey directionglobal dialogHelpif dialogHelp = on then exit arrowKeyif direction = right then send mouseUp to bkgnd btn id 10if direction = left then send mouseUp to bkgnd btn id 11if the foundText is not empty then click at 40,40if direction = down thenput the scroll of fld 8 into scrollNumput ((the number of lines in fld 8) * 12)-132 into scrollMaxif (scrollMax - scrollNum) > 132 thenadd 132 to scrollNumlock screenset the scroll of fld 8 to scrollNumset the scroll of fld 7 to scrollNumscreenChangeelselock screenset the scroll of fld 8 to scrollMaxset the scroll of fld 7 to scrollMaxscreenChangeend ifend ifif direction is up thenput the scroll of fld 8 into scrollNumif (the scroll of fld 8) > 132 thensubtract 132 from scrollNumlock screenset the scroll of fld 8 to scrollNumset the scroll of fld 7 to scrollNumscreenChangeelselock screenset the scroll of fld 8 to 0set the scroll of fld 7 to 0screenChangeend ifend ifend arrowKeyon mouseDownInPicture thePicture,thePointif (World is not in thePicture) and (Alert is not in thePicture) thenclose window thePictureend ifif Alert is in thePicture then hide window thePictureif thePicture = "World Map" thenLockCursor stackwatchif thePoint is within "2,250,423,280" thenclose window "World Map"exit mouseDownInPictureend ifif thePoint is within "0,0,160,214" thenif thePoint is within "55,97,60,102" then goC 4834,"San Francisco"if thePoint is within "119,88,124,93" then goC 5059,"New York"if thePoint is within "59,106,64,111" then goC 4834,90000if thePoint is within "76,97,81,102" then goC 7467,Denverif thePoint is within "34,60,38,65" then goC 33735if thePoint is within "111,93,116,98" then goC 2824if thePoint is within "74,77,79,82" then goC 16689if thePoint is within "33,59,38,64" then goC 33735if thePoint is within "111,83,116,88" then goC 37891if thePoint is within "130,204,135,209" then goC 14880if thePoint is within "104,167,109,172" then goC 66567if thePoint is within "124,180,129,185" then goC 25669if thePoint is within "80,125,85,130" then goC 65078if thePoint is within "141,171,146,176" then goC 27846if thePoint is within "110,147,115,152" then goC 32019if thePoint is within "147,185,152,190" then goC 58127if thePoint is within "119,138,124,143" then goC 56576end ifif thePoint is within "187,0,418,219" thenif thePoint is within "189,95,194,100" then goC 51603if thePoint is within "382,200,387,205" then goC 57110if thePoint is within "215,93,220,98" then goC 63613if thePoint is within "203,81,208,86" then goC 59958if thePoint is within "195,93,200,98" then goC 67128if thePoint is within "210,83,215,88" then goC 54196if thePoint is within "214,76,219,81" then goC 84321if thePoint is within "333,93,338,98" then goC 79566if thePoint is within "345,109,350,114" then goC 81058if thePoint is within "235,112,240,117" then goC 83415if thePoint is within "288,125,293,130" then goC 43473if thePoint is within "191,107,197,112" then goC 14783if thePoint is within "198,74,203,79" then goC 70087if thePoint is within "206,74,211,79" then goC 44589if thePoint is within "202,144,207,149" then goC 90037if thePoint is within "212,61,217,66" then goC 66537if thePoint is within "333,161,338,166" then goC 43649if thePoint is within "367,98,372,103" then goC 64182if thePoint is within "352,96,357,101" then goC 64592if thePoint is within "411,211,416,216" then goC 66265if thePoint is within "232,190,237,195" then goC 91955if thePoint is within "373,207,378,212" then goC 19331if thePoint is within "339,195,344,200" then goC 76515if thePoint is within "243,142,248,147" then goC 17626if thePoint is within "227,57,232,62" then goC 18103if thePoint is within "337,120,342,125" then goC 43225if thePoint is within "293,114,298,119" then goC 55521if thePoint is within "260,99,265,104" then goC 43820if thePoint is within "250,104,255,109" then goC 39918if thePoint is within "241,154,246,159" then goC 88457if thePoint is within "254,112,259,117" then goC 46539if thePoint is within "322,144,327,149" then goC 28702if thePoint is within "281,118,286,123" then goC 90207if thePoint is within "346,130,351,135" then goC 51364if thePoint is within "228,85,233,90" then goC 91243if thePoint is within "255,120,260,125" then goC 91578if thePoint is within "222,202,227,207" then goC 52848if thePoint is within "327,150,332,155" then goC 52714if thePoint is within "298,143,303,148" then goC 48444if thePoint is within "219,61,224,66" then goC 92455if thePoint is within "347,118,352,123" then goC 68784if thePoint is within "324,135,329,141" then goC 54907if thePoint is within "236,93,241,98" then goC 55626if thePoint is within "265,118,270,123" then goC 93914if thePoint is within "222,160,227,165" then goC 95190end ifLockCursor crosshairsend ifend mouseDownInPictureon goC cardId,findStuffgo cd id cardIdif findStuff ≠ empty thenif findStuff is not a number thenfind string findStuff in bg fld id 4elsefind string findStuff in bg fld id 30set the scroll of fld 8 to the scroll of fld 7end ifend ifclose window "World Map"end goC</script>
